home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / CATDATE (CLOCK CARD).bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  63 lines
  1. 10  REM  **********************
  2. 11  REM  * CATALOG DATE HELLO *
  3. 12  REM  * BY ARTHUR L. MENA  *
  4. 13  REM  * COPYRIGHT (C) 1983 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 120  REM 
  9. 130  REM  Apple clock version
  10. 140  REM 
  11. 150  REM  This version of the CATALOG
  12. 160  REM  DATE program assumes you have
  13. 170  REM  a Mountain Computer Appleclock
  14. 180  REM  in slot #4.  This program can
  15. 190  REM  be easily modified to read the
  16. 200  REM  date from other clock cards.
  17. 210  REM  Consult the clock manuals for
  18. 220  REM  details.
  19. 230  REM 
  20. 270  REM 
  21. 280  REM  Poke CATDATE into memory
  22. 290  REM 
  23. 300  RESTORE 
  24. 310  FOR I = 44686 TO 44732
  25. 320  READ D: POKE I,D
  26. 330  NEXT I
  27. 340  TEXT : HOME : PRINT : PRINT "   CATDATE INSTALLED"
  28. 350  REM 
  29. 360  REM  Poke JSR CATDATE into memory
  30. 370  REM 
  31. 380  POKE 45611,32: POKE 45612,143: POKE 15613,174
  32. 390  POKE 45574,32: POKE 45575,143: POKE 45576,174
  33. 400  REM 
  34. 410  REM  Change file name length to 21
  35. 420  REM 
  36. 430  POKE 45608,21: POKE 45571,21
  37. 440  REM 
  38. 450  DATA  0,173,95,170,201,4,240,12,201,48,240,8,201,26,240,4,201,0,208,23,174,156,179,189,200,180,48,15,160,8,185,223,188,157,222,180,232,136,16,246
  39. 460  DATA  32,55,176,174,156,179,96
  40. 470  REM 
  41. 480  REM  Read date from Mountain Computer
  42. 490  REM  Apple clock in slot four
  43. 500  REM 
  44. 510 D$ =  CHR$(4)
  45. 520  PRINT D$"IN#4"
  46. 530  PRINT D$"PR#4"
  47. 540  INPUT " ";T$
  48. 550  PRINT D$"IN#0"
  49. 560  PRINT D$"PR#0"
  50. 570  PRINT 
  51. 580 YR$ = "/82 "
  52. 590 DT$ =  LEFT$(T$,5) +YR$
  53. 600 DT = 48351: REM  $BCDF
  54. 610  PRINT : PRINT : PRINT DT$" HAS BEEN INSTALLED AS THE     CURRENT DATE"
  55. 620  REM 
  56. 630  REM  Poke date into memory
  57. 640  REM 
  58. 650 J = 8
  59. 660  FOR I = 0 TO  LEN(DT$) -1
  60. 670  POKE DT +J, ASC( MID$ (DT$,I +1,1)) +128
  61. 680 J = J -1
  62. 690  NEXT I
  63. 700  END